      MODULE employv2kp_c0
      USE employv2kp_c1
      USE employv2kp_c2
      USE employv2kp_c3
      USE employv2kp_c4
      USE employv2kp_c5
      USE employv2kp_c6
      CONTAINS
      SUBROUTINE SSALAC(NUMCS,CSPOSTSIM,MMNST,SSZ,ERRMES)
      CHARACTER*(*) ERRMES
      CHARACTER*6 SUBNAM
      PARAMETER(SUBNAM='SSALAC')
      INTEGER NUMCS,MMNST,SSZ(MMNST),I
      CHARACTER*(*) CSPOSTSIM(NUMCS)
      DO I=1,NUMCS
       IF(CSPOSTSIM(I).EQ.'n') THEN
        CALL SSAL1C(I,MMNST,SSZ,ERRMES)
        IF(ERRMES(1:1).EQ.'E') GOTO 15000
       END IF
      END DO
      RETURN
15000 CONTINUE
      CALL PERET(SUBNAM)
      RETURN
      END SUBROUTINE SSALAC
      END MODULE employv2kp_c0
